home *** CD-ROM | disk | FTP | other *** search
/ The Programmer Disk / The Programmer Disk (Microforum).iso / xpro / c4 / pro20 / pbmtolj.c < prev    next >
C/C++ Source or Header  |  1990-05-31  |  3KB  |  153 lines

  1. /* pbmtolj.c - read a portable bitmap and produce a LaserJet bitmap file
  2. **    
  3. **    based on pbmtops.c
  4. **
  5. **    Michael Haberler HP Vienna mah@hpuviea.uucp
  6. **                   mcvax!tuvie!mah
  7. **    misfeatures: 
  8. **        no positioning
  9. **
  10. **      Bug fix Dec 12, 1988 :
  11. **              lines in putbit() reshuffled 
  12. **              now runs OK on HP-UX 6.0 with X10R4 and HP Laserjet II
  13. **      Bo Thide', Swedish Institute of Space Physics, Uppsala <bt@irfu.se>
  14. **
  15. ** Copyright (C) 1988 by Jef Poskanzer and Michael Haberler.
  16. **
  17. ** Permission to use, copy, modify, and distribute this software and its
  18. ** documentation for any purpose and without fee is hereby granted, provided
  19. ** that the above copyright notice appear in all copies and that both that
  20. ** copyright notice and this permission notice appear in supporting
  21. ** documentation.  This software is provided "as is" without express or
  22. ** implied warranty.
  23. */
  24.  
  25. #include <stdio.h>
  26. #include "pbm.h"
  27. #ifdef SYSV
  28. #include <string.h>
  29. #else /*SYSV*/
  30. #include <strings.h>
  31. #endif /*SYSV*/
  32.  
  33. int dpi = 75;
  34.     
  35. main( argc, argv )
  36. int argc;
  37. char *argv[];
  38.     {
  39.     FILE *ifd;
  40.     register bit *bitrow, *bP;
  41.     int argn, rows, cols, format, rucols, padright, row, col;
  42.     char *usage = "[-r resolution] [pbmfile]\n\t\resolution = [75|100|150|300] (dpi)";
  43.  
  44.     pm_progname = argv[0];
  45.  
  46.     argn = 1;
  47.  
  48.     /* Check for flags. */
  49.     if ( argc > argn )
  50.     {
  51.     if ( argv[argn][0] == '-' )
  52.         {
  53.         if ( strcmp( argv[argn], "-r" ) == 0 )
  54.         {
  55.         if ( argc == argn + 1 )
  56.             pm_usage( usage );
  57.         if ( sscanf( argv[argn+1], "%d", &dpi ) != 1 )
  58.             pm_usage( usage );
  59.         argn += 2;
  60.         }
  61.         else
  62.         pm_usage( usage );
  63.         }
  64.     }
  65.  
  66.     if ( argc > argn + 1 )
  67.     pm_usage( usage );
  68.  
  69.     if ( argc == argn + 1 )
  70.     ifd = pm_openr( argv[argn] );
  71.     else
  72.     ifd = stdin;
  73.  
  74.     pbm_readpbminit( ifd, &cols, &rows, &format );
  75.     bitrow = pbm_allocrow( cols );
  76.  
  77.     /* Round cols up to the nearest multiple of 8. */
  78.     rucols = ( cols + 7 ) / 8;
  79.     rucols = rucols * 8;
  80.     padright = rucols - cols;
  81.  
  82.     putinit( );
  83.     for ( row = 0; row < rows; row++ )
  84.     {
  85.     pbm_readpbmrow( ifd, bitrow, cols, format );
  86.     /* Transfer raster graphics */
  87.      printf("\033*b%dW",rucols/8);
  88.         for ( col = 0, bP = bitrow; col < cols; col++, bP++ )
  89.         putbit( *bP );
  90.     for ( col = 0; col < padright; col++ )
  91.         putbit( 0 );
  92.         }
  93.  
  94.     pm_close( ifd );
  95.  
  96.     putrest( );
  97.  
  98.     exit( 0 );
  99.     }
  100.  
  101.  
  102. int item, bitsperitem, bitshift, itemsperline, firstitem;
  103.  
  104. putinit( )
  105.     {
  106.     /* Printer reset. */
  107.     printf("\033E");
  108.  
  109.     /* Set raster graphics resolution */
  110.     printf("\033*t%dR",dpi);
  111.  
  112.     /* Start raster graphics, relative adressing */
  113.     printf("\033*r1A");
  114.  
  115.     itemsperline = 0;
  116.     bitsperitem = 1;
  117.     item = 0;
  118.     bitshift = 7;
  119.     firstitem = 1;
  120.     }
  121.  
  122. putbit( b )
  123. bit b;
  124.     {
  125.     if ( b == PBM_BLACK )
  126.     item += 1 << bitshift;
  127.     bitshift--;
  128.     if ( bitsperitem == 8 ) {
  129.     putitem( );
  130.         bitshift = 7;
  131.     }
  132.     bitsperitem++;
  133.     }
  134.  
  135. putrest( )
  136.     {
  137.     if ( bitsperitem > 1 )
  138.     putitem( );
  139.  
  140.     /* end raster graphics */
  141.     printf( "\033*rB" );
  142.  
  143.     /* Printer reset. */
  144.     printf("\033E");
  145.     }
  146.  
  147. putitem( )
  148.     {
  149.     putchar( item );
  150.     bitsperitem = 0;
  151.     item = 0;
  152.     }
  153.